home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / C / Games / Xconq 7.0d16 / lib / mormon.g < prev    next >
Encoding:
Text File  |  1993-12-20  |  5.4 KB  |  227 lines  |  [TEXT/MPS ]
  1. (game-module "mormon"
  2.   (title "1847")
  3.   (blurb "The heroic age of the heroic Mormon pioneers")
  4.   (variants (world-seen) (see-all true))
  5.   )
  6.  
  7. (unit-type m (name "mormon") (char "m") (help ""))
  8. (unit-type A (name "avenging angel") (char "A") (help ""))
  9. (unit-type P (name "prophet") (char "P") (help ""))
  10. (unit-type a (name "army") (char "a") (help ""))
  11. (unit-type u (name "Ute") (char "u") (help ""))
  12. (unit-type / (name "fort") (char "/") (help "where the army hangs out"))
  13. (unit-type * (name "settlement") (char "*") (help ""))
  14. (unit-type @ (name "temple") (char "@") (help ""))
  15.  
  16. (material-type water (help "very scarce in Utah"))
  17.  
  18. (terrain-type lake (char ".") (color "sky blue"))
  19. (terrain-type river (char ",") (color "cyan"))
  20. (terrain-type valley (char "+") (color "green"))
  21. (terrain-type forest (char "%") (color "forest green"))
  22. (terrain-type desert (char "~") (color "yellow"))
  23. (terrain-type mountains (char "^") (color "sienna"))
  24. (terrain-type |salt flat| (char "_") (color "white"))
  25. (terrain-type |not-Utah| (char ":") (color "black"))
  26.  
  27. (add m image-name "man")
  28. (add A image-name "trooper")
  29. (add P image-name "man")
  30. (add a image-name "cavalry")
  31. (add u image-name "archer")
  32. (add / image-name "walltown")
  33. (add * image-name "walltown")
  34. (add @ image-name "city18")
  35.  
  36. ;;; Static relationships.
  37.  
  38. (table vanishes-on
  39.   (u* (lake not-Utah) true)
  40.   )
  41.  
  42. (add (* @) capacity 10)
  43.  
  44. (table unit-capacity-x
  45.   (/ a 6)
  46.   )
  47.  
  48. ;; no random init, since sides asymmetrical
  49.  
  50. ;5000 a siege
  51.  
  52. (table acp-to-create
  53.   (P m 6)
  54.   (m m 2)
  55.   ;; work on these
  56. ;  (m * 20)
  57. ;  (a / 20)
  58.   )
  59.  
  60. ;1 water (m A a) produce
  61. ;10 water (/ * @) produce
  62. ;100 valley u* productivity
  63. ;100 mountains a productivity
  64. ;10 water (m A a) storage
  65. ;100 water (/ * @) storage
  66. ;1 water (m A a) consume
  67.  
  68. ;"dies of thirst" (m A a) starve-message
  69.  
  70. ;;;; scale should be 15 km?
  71.  
  72. (add (m A a u P) acp-per-turn (2 4 4 4 6))
  73.  
  74. (table mp-to-enter-terrain
  75.   (u* (lake not-Utah) 99)
  76.   )
  77.  
  78. (table hit-chance
  79.   ((a u) m 95)  ; the army misses occasionally
  80.   ((a u) P 50)  ; prophet is wily
  81.   (a A 30)
  82.   (A a 50)      ; avenging angels are only way to hit back
  83.   )
  84.  
  85. (table damage (u* u* 1))
  86.  
  87. (add u* initial-seen-radius 4)
  88.  
  89. (scorekeeper (do last-side-wins))
  90.  
  91. (world 50)  ; hexagon would be better
  92.  
  93. (area 50 42)
  94.  
  95. (area (terrain
  96.   "50h"
  97.   "6ecfcfc2af33h3e"
  98.   "2f5ecfcf2a2f32h2ef"
  99.   "8ecfcfafd33h2e"
  100.   "4e2a3ecfc2fdf32hef"
  101.   "e2g2e2a2ecf2c2fd33he"
  102.   "fe2ge3aeacf2cfdf32he"
  103.   "2e3ge4aecf2cfd33h"
  104.   "fe4ge3aecf3cdf32h"
  105.   "he3gfge3aecf4c10dc3e18h"
  106.   "he3gfge2ae2acf3c2d7f2dc2e18h"
  107.   "2he5g2e3aecf2cd10fce2b17h"
  108.   "2h2e4g3ea2ecf3c3d6fc2ebe17h"
  109.   "3he3g3ef2efcf2cf3dc5ece2b2e16h"
  110.   "3h2e3g3efefecfc2d3c7eb3e16h"
  111.   "4h2e2g3ef2efacfcfdf9eb3e15h"
  112.   "4h4eg3efefeacfcfd2f7eb3e15h"
  113.   "5h7ef3eacfc2fd4f4ebe3f14h"
  114.   "5h4ef7ecfc2efce4f2ebefdf14h"
  115.   "6h4ef4efecfefefece4febefd2f13h"
  116.   "6h2ef2ef4efcef2efe2c3efebef2df13h"
  117.   "7h2efef6efefef5ec2ebefd3f12h"
  118.   "7h2ef2ef2e2cef2efef8ebe2f2e12h"
  119.   "8h2efef2e3c2ef2e2f5ecebe2f2eb11h"
  120.   "8h2ef4e3cecfce2f7ebe2f2eb11h"
  121.   "9h5ea6ece2f7ecbefe2be10h"
  122.   "9h3efea5efc3ef7eb3eb2e10h"
  123.   "10h2efea4ecfecfef8eb2eb3e9h"
  124.   "10hefef2ef5ec11eb2ebefe9h"
  125.   "11hefefef4e2f6ef5ebeb2efe8h"
  126.   "11hef2ef4ec2ef5e2f5e2b2efe8h"
  127.   "12hefe2f4ef2e2f4ef5eb6e7h"
  128.   "12h2e2f6efef2ef2e2f4eb6e7h"
  129.   "13h2f5ec2f5ef2ef3e2b3e2f2e6h"
  130.   "13h5ec2e2f5ef2ef2e2b4e3fe6h"
  131.   "14h6ec2f11eb6e2f2e5h"
  132.   "14h3ef3ef11e2b10e5h"
  133.   "15h2efe2cf11ebe5b6e4h"
  134.   "15h2efec11e3b6e6b4h"
  135.   "16h3ec11eb15e3h"
  136.   "16h10ec4eb2e2f11e3h"
  137.   "50h"
  138. ))
  139. #|
  140. (area (terrain (by-char ".;+%~^_:")
  141.   "50:"
  142.   "6~+^+^+..^33:3~"
  143.   "^^5~+^+^..^^32:~~1^"
  144.   "8~+^+^.^%33:2~"
  145.   "4~..3~+^+^^%^32:~1^"
  146.   "~__~~..~~+^++^^%33:1~"
  147.   "^~__~3.~.+^++^%^32:1~"
  148.   "~~3_~4.~+^++^%33:"
  149.   "^~4_~3.~+^3+%^32:"
  150.   ":~3_^_~3.~+^4+10%+3~18:"
  151.   ":~3_^_~..~..+^3+%%7^%%+~~18:"
  152.   "::~5_~~3.~+^++%10^+~..17:"
  153.   "::~~4_3~.~~+^3+3%6^+~~.~17:"
  154.   "3:~3_3~^~~^+^++^3%+5~+~..~~16:"
  155.   "3:~~3_3~^~^~+^+%%3+7~.3~16:"
  156.   "4:~~__3~^~~^.+^+^%^9~.3~15:"
  157.   "4:4~_3~^~^~.+^+^%^^7~.3~15:"
  158.   "5:7~^3~.+^+^^%4^4~.~3^14:"
  159.   "5:4~^7~+^+~~^+~4^~~.~^%^14:"
  160.   "6:4~^4~^~+^~^~^~+~4^~.~^%^^13:"
  161.   "6:~~^~~^4~^+~^~~^~++3~^~.~^%%^13:"
  162.   "7:~~^~^6~^~^~^5~+~~.~^%3^12:"
  163.   "7:~~^~~^~~++~^~~^~^8~.~^^~~12:"
  164.   "8:~~^~^~~3+~~^~~^^5~+~.~^^~~.11:"
  165.   "8:~~^4~3+~+^+~^^7~.~^^~~.11:"
  166.   "9:5~;6~+~^^7~+.~^~..~10:"
  167.   "9:3~^~;5~^+3~^7~.3~.~~10:"
  168.   "10:~~^~;4~+^~+^~^8~.~~.3~9:"
  169.   "10:~^~^~~^5~+11~.~~.~^~9:"
  170.   "11:~^~^~^4~^^6~^5~.~.~~^~8:"
  171.   "11:~^~~^4~+~~^5~^^5~..~~^~8:"
  172.   "12:~^~^^4~^~~^^4~^5~.6~7:"
  173.   "12:~~^^6~^~^~~^~~^^4~.6~7:"
  174.   "13:^^5~+^^5~^~~^3~..3~^^~~6:"
  175.   "13:5~+~~^^5~^~~^~~..4~3^~6:"
  176.   "14:6~+^^11~.6~^^~~5:"
  177.   "14:3~^3~^11~..10~5:"
  178.   "15:~~^~++^11~.~5.6~4:"
  179.   "15:~~^~+11~3.6~6.4:"
  180.   "16:3~+11~.15~3:"
  181.   "16:10~+4~.~~^^11~3:"
  182.   "50:"
  183. ))
  184. |#
  185.  
  186. (side 1 (name "US"))
  187.  
  188. (side 2 (noun "Mormon"))
  189.  
  190. (/ 14 31 1 (n "Ft Douglas"))
  191. (a 14 31 1)
  192. (a 14 31 1)
  193. (a 14 31 1)
  194. (a 14 31 1)
  195. (a 14 31 1)
  196. (a 14 31 1)
  197.  
  198. (@ 14 30 2 (n "Salt Lake City"))
  199. (P 14 30 2 (n "Brigham Young"))
  200. (A 14 30 2)
  201. (m 14 30 2)
  202.  
  203. (* 15 27 2 (n "Orem"))
  204. (* 17 25 2 (n "Provo"))
  205. (* 14 29 2 (n "Sandy"))
  206. (* 12 32 2 (n "Ogden"))
  207.  
  208. (game-module (instructions (
  209.   "The Mormons should try to reproduce themselves "
  210.   "and spread out as much as possible "
  211.   "before the cavalry catches up with them."
  212.   "Use the Avenging Angels to ambush the cavs."
  213.   ""
  214.   "The US cavalry just has to kill as many Mormons "
  215.   "as fast as they can."
  216.   )))
  217.  
  218. (game-module (notes (
  219.   "Can the US army kill all the Mormons before they overpopulate Utah?"
  220.   ""
  221.   "(This is all a joke of course.)"
  222.   )))
  223.  
  224. (game-module (design-notes (
  225.   "Needs some cleanup and balancing work"
  226.   )))
  227.